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3 * 1ntraduction 

1 ] Mi cro-PIfinnet' is sn EmplemePtat ion of a subset of Carl Hewitt’s 
language, PLAINER, by Gerald Jay Sussman, Terry Ulnograd, and Eugene 
■Char niak on the AL group computer in LISP* Miero^Plenner is now 3 
publicly accessible systems program In the Al group system ITS* The 
current version of Micro-Planner, embedded In an allocated U5P, may bo 
obtained by Encanting ,+ : PLHR” or " PLllRCcon t ro 5 -K>" to DOT * Micro-Planner 
is also available as EXPR code or LAP code* All questions, suggestions, 
or comments about Micro-Planner should be directed to Gerald Jay Sussman 
(login name GJS) who will maintain the program* 

2) Philosophical Overview 

The "level” of a programming language Is a term which Is in 
fairly common usage hi the computer culture* We all agree, for example, 
that FORTRAN, LISP, and PL1 are higher level languages than, say assembly 
language, regardless of our opinions of their relative merits for 
expressing our Individual styles of programming* After some 
introspection, 1 decided that what is meant by the level of a language 
is the amount of knowledge of programming style Implicit in the language 
processor and thus the quantity of detail which the user does not 
explicitly have to specify because he may assume that the processor wlM 
fill in for him. When we express the value judgment that LISP or PLI, 
for example, is a lousy language, what we mean Is that the stylistic 
assumptions made by the designers of the language are incompatible with 
our own styles and thus overly restrict us. There are some of us (may 
|T$ preserve their file directories!) with whom any restrictions arc 
Incompatible and who thus always write En assembly language* There are 
others, such as 1, who find such restrictions an aid En the organization 
of large programs* Thus, to me, LISP Is useful In that It provides a- 
large library of subroutines with uniform calling sequences, a convenient 
evaluator for defining, recursively reentrant procedures from those 
primitives and a bookkeeper for the maintenance of a list structured data 
base. Indeed for these conveniences | pay heavily in space and time 
efficiency, as well as in some feeling of constrained style, 

PLANNER Is the first of perhaps a who!e new level of languages 
which will basically be or[anted toward the accomplishment of tasks (or 
goal 5 ) which mey In Fact be broken down into subtasks (subgoals)* By 
contrast, in previous languages (as U&P) problem solutions are expressed 
En terms of procedures (functions). The distinction Is not Immediately 
apparent but should become more clear If we note that in a PLANNER 
program, if a goal Es activated then It may be satisfied by any number of 
objects En the data base or by any number of theorems (the analogue of 
procedure), A backup mechanism is provided so that one of the 
possibilities is tried, and then If, as a consequence a failure occurs. 
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then another is tried, etc. Furthermore, the data and theorems need not 
be referenced explicitly* but rather by saying, in essence, "the datum 
Cor procedure?" which fits the following pattern Cor accomplishes the 
desired result) t En order for such data and theorems to be implicitly 
referenced efficiently the system has the responsibility of constructing, 
and accessing a cross-referenced data base of "'assertl ons" (data) and 
theorems (programs?. 


/ 
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it* Programmi ng in Mi cro-Pl anruar 

The easiest way to understand Micro-Planner Is to watch how [t 
works* 50 In this section we win present a few simple examples and 
explain the use of some of Its most elementary features. 

First we will take the most venerable of traditional deductions: 

Turing is a human 

All humans are fallible 
so 

Turing Is fallible* 

It is easy enough to see how this could be expressed in the usual 
logical notation and handled by a uniform proof procedure* Instead, let 
us express It In one possible way to MtcrO-Planner by saying: 

(TH ASSERT { HUMAN TUR HIGH 

(THCQMSE (X) CFALLIBLE *?X) 

(THGQAL (HUMAW t?X)}) 

The proof would be generated by ashing Micro-Planner to evaluate the 
express ion: 

(THGOAL (FALLIBLE TURING) $T) 

wo Immediately see several points. First, there are two different 
ways of storing information* Simple assertions are stored In a data 
base oF assertions, while more complex sentences containing quantifiers 
or logical connectives are expressed in the form of theorems* 

Second, one of the most important points about Micro-Planner Is that 
It Is an evaluator for statements written in a programing language* tt 
accepts Input in the Form of expressions written in the Micro-Planner 
language, and evaluates them, producing a value and side effects* 

THASSERT is a function which, when evaluated, stores its argument In the 
data base of assertions or the data base of theorems (which are cross- 
referenced in various ways to give the system efficient look-up 
capabilities)* In this example the second line defines a theorem of the 
THCUU5E type (THCQNSE means consequent; we will see other types later). 
This states that if we ever want to establish a goal of the form 
(FALL i b LE $?X), we can do this by accomplishing the goal (HUMAN S?X), 
where X Is a variable, Hots that symbols like FALLIBLE and HUMAN have no 
'"meaning 11 in Micro Planner* (All Micro Planner symbols start with TH *) 
Nor Is there any significance to the order in which elements appear in 
the pattern, tfe could have said (TURING tS-AN OSTRICH) for all Micro 
Planner cares* The strange prefix characters are part of Micro-Planner's 
pattern matching capabilities* if we ask Micro-Planner to prove a goal 
of the form (A X>, there Is no obvious way of knowing whether A and X are 
constants (like TURING and HUMAN in the example) or^var3ables* LISP 
solves this problem by using the function QUOTE to Indicate constants* 

In pattern matching this Is inconvenient and makes most patterns much 
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bulkier" and mo^e d t Ff i tu 3t to read* Instead, M E c re-P1 anne r uses the 
opposite convention -- a constant Is represented by the atom itself* 
while a variable must be Indicated by adding an appropriate prefix* Thi: 
prefix differs according to the exact use of the variable in the pattern, 
hot for the time beTne let us just accept $7 {this is a dollar^slgn -- 
not an alt-mode) as a prefix indicating a variable. The definition of 
the theorem indicates that It has one variable, X by the £X) following 
THCUNSE* 

The third statement Illustrates the function THGGAL, which calls 
the Micro-Planner Interpreter to try to prove an assertion. This can 
function in several ways* If we had asked Micro-Planner to evaluate 
(THGUAL (HUMAN TURING)) It would have found the requested assertion 
immediately in the data hasp and succeeded £ returning as its value some 
indicator that It had succeeded).. However, (FALLIBLE TUR 1 MG ) has not 
been asserted* so we must resort to theorems to prove it* Later we will 
see that a iHGUAL statement can give Mlcro-PJanner various kinds of 
advice on which theorems are applicable to the goal and should be tried. 
For the moment* $T is advice that causes the evaluator to try all 
theorems whose consequent l£ of a furm which matches the goal* (i.e. a 
theorem with a consequent £S?Z TUftlHG) would he tried, but one of the 
form (HAPPY $'?Z) or (FALLIBLE $?Y $?Z) would not. If there is no advice 
only the data base will be tried* Assertions can not have an arbitrary 
list structure for their format but they are not limited to two-member 
lists or three-member lists as in these examples,! The theorem we have 
Just defined would be found, end In trying it, the match of the 
consequence to the goal would cause the variable $?X to be assigned to 
the constant TURING, Therefore, the theorem sets up a new goal (HUMAN 
TURING) and this succeeds immediately since It is In the data base* In 
general, the success of a theorem will depend on evaluating a Micro- 
Planner program of arbitrary complexity, In this case it contains only i 
single THGGAL statement, so its success causes the entire theorem to 
succeed, and the goal (FALLIBLE TURING) is proved. 

Consider the question "Is anything fallible?"'* or In logic 
(EXISTS £Y)(FALL1BLE Y)J. This requires a variable and It could be 
expressed In Micro-Planner asi 

(THPROG (Y) (THGOAL (FALLIBLE *?Y) $T) (TKftETURN $?Y)) 

Notice that THFROG (Micro-Planner's equivalent of a LISP PROG* 
complete with GO statements, tags, RETURN, etc,} acts as an existentfal 
quantifier. It provides a bind!ng-place for the variable Y* but does 
not Initialize It ** it leaves Tt in a state particularly marked as 
unasslcned. To answer the question, we ask Ml cro^Pl anner to evaluate 
the en£lre ThPRUG expression above* To do this it starts by evaluating 
the THGOAL expression. This searches the data base for an assertion of 
the form (FALLIBLE $?YJ and falls. It then looks for a theorem with a 
consequent of that form, end finds the theorem we defined above. Now whe 
the theorem is called* the variable X In the theorem is identified with 
the variable Y In the goal* but since Y has no value yet, A does not 
receive a value* The theorem then sets up the goal (HUMAN $7JO with A a 
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a variable. The data-base search Eng mechanism takes this as a commend td 
look for any assertion which matches that pattern (l.e. an 
instantiation), and finds the assertion (HUMAN TURING}. This causes X 
£and therefore V} to bo assigned to the constant TURING, and the theorem 
succeeds.* completing the proof and returning the value TURING, 

There seems to be something missing. So far,the data base has 
contained only the relevant objects* and therefore Micro-Planner has 
found the right assertions Immedlatel y. Consider the problem we would 
get if we added new Information by evaluating the statements: 

(THA5SERT (HUMAN SOCRATES)) 

CTIIASSERT (GREEK SOCRATES)) 
tTHASSERT (HUMAN NEWTON)) 

Our data base now contains the assertions! 

(HUMAN TURING) 

(HUMAN SUCRATES) 

(GREEK SOCRATES) 

(HUMAN NEWTON) 

and the theorem: 

(THCOtlSE (X) (FALLIBLE $7X) 

(THGOAL (HUMAN $7X)>) 

What If we now ask, "Is there a fallible Greek?" in Micro-Plenner we 
would do this by evaluating the expression: 

fTHPROG (X) 

(THGOAL (FALLIBLE £?X)$T) 

(THGOAL (GREEK S?X)) 

(THRETURN J7X)) 

THPROG acts like an AND* Insisting that ail of its terms are satisfied 
before the^THPROG is happy, Notice what might happen. The first THGOAL 
may be satisfied by the exact same deduction as before,, since we have not 
removed Information, Since the data-base searcher will run Into NEWTON 
before it finds SOCRATES, the goal (HUMAN $7Xj will succeed, assigning 
$?X to NEWTON. After (FALLIBLE $7X) succeds, the THPRQG will then 
establish the new goal (GREEK NEUTGN), which Is doomed! to fall since it 
has not been asserted, and there arc no applicable theorems* If we think 
in LIBP terms, this is a serious problem, since the evaluation of the 
first THGOAL has been completed before the second one 3s called, and the 
"push-down list" now contains only the THFROG, If we try to go beck to 
the beginning end start over, it will again find NEVJTON and so on, ad 
inf 1niturn. 

One of the most Important features of the Micro-Planner language is 
that backup Tn case of failure is always possible, and nioreover this 
backup can go to thE last place where a decision of any sort was made* 
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Hare, the decision was to pick a particular assertion from 
to natch a goal* Other decisions night be the choice of a 
satisfy a goal, or a decision of other types found In more 
Planner Functions, Micro-Planner keeps enough Information 
decision and send evaluation back down a new path. 

In our example the decision was made Inside the theorem for 
FALLIBLE, when the goal (HUMAN $?X) was matched to the assertion (HUMAN 
NEWTON), Micro-Planner will retrace its steps, try to find a different 
assertion which matches the soal, find £ HUMAN SQCRATE&), and continue 
with the proof* The theorem will succeed with the value (FALLIBLE 
SOCKATES), and the THPRQG wl H proceed to the next expression, (THGGAL 
(GREEK 5?X)), Since X has been assigned to SOCRATES, this will set up 
the goal (GREEK SOCRATES) which will succeed Immediately by finding the 
cor respondEng assertion in the data base. The program will then return 
the value SOCRATES, If there were no explicit THRETURM statement, and 
the THPRQG was allowed to fall off Its end. It would return the default 
value THNDVAU The whole course of the deduction process depends on the 
FaE1ure mechanism for backing up and trying things over (this Is actually 
the process of trying different branches down the subgoel tree*) All of 
the functions like THcQtip, THAND, TH.GR, etc* are controlled by success 
vs. Failure, Thus it is the M1cro-P1anner exetutiVE which establishes 
and manipulates sub-goals In looking for a proof* 

Although Micro-Planner is written as a programming language. It 
differs In several critical ways from anything v/hich Is normally 
considered a programming languagei First, St is goal-directed* Theorems 
can be thought of as subroutines, but they can be called by specifying 
the goal which is to be satisfied. This is like having the ability to 
say "Call a subroutine which will achieve the desired result at this 
point," Second, the evaluator has the mechanism of success and failure 
to handle the exploration of the subgoal tree. Other evaluators, such as 
LISP, with a basic recursive evaluator have no way to do this* Third, 
Micro^Hlsnner contains a bookkeeping system for matching patterns and 
manipulating a data base, and For handling that data base efficiently. 

How is Micro-Planner different from a theorem prover? What Is 
gained by writing theorems in the form of programs, and giving them power 
to call other programs which manipulate data? The key Is in the ferfrr of 
the data the theorem-prover can accept* Most systems take declarative 
information, as In predicate calculus* This Is in the form of 
expressions which represent "facts" about the world* These are 
manipulated by the theor&m-prover according to some fixed uniform process 
set by the system, Micro-Piannef can make use of mperative information, 
telling it how to go about proving a subgoal, or to make use of an 
assertion* This produces what is called hIerarchlcal control structure * 
That 3b, any theorem can Indicate what the theorem prover Is supposed to 
do as It continues the proof. It has the full power of a general 
programming languagE to evaluate functions which can depend on both the 
data base and the subgoal tree, and to use its results to control the 
further proof by making assertions, deciding what theorems are to be 
used, and specifying a sequence of steps to be followed* What does this 
mean In practical terms? In what way does It make a "hotter 1 ' theorem 
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prover? We will give several examples of areas where the approach is 
Important. 

First, consider the basic problem of deciding what subgoals to try 
in attempting to satisfy a goal. Very often, knowledge of the subject 
matter will tell us that certain methods are very likely to succeed, 
others ntay he useful If certain other conditions are present, while 
others may be possibly valuable, but not tTkely, We would like to have 
the ability to use heuristic programs to determine these facts and direct 
the theorem prover accordingly. It should be able to direct the search 
for goals and solutions In the best way possible, and able to bring as 
much Intelligence as possible to bear on the decision, in Micro-Planner 
this Is done by adding to our THGGAL statement a reconmcnda t ton list 
which can specify that ONLY certain theorems are to be tried, pr that 
certain ones are to be tried FIRST in a specified order, Since theorems 
are programs, subroutines of any type con be called to help make this 
decision before establishing a new THGOAL, A theorem can be given a name 
so that It can be explicitly referred to. In our example, however, we 
did not do so* if we had wanted to name It, say, FALL!liLE-PROVER, we 
would have written 

(THCQMSE FALL!GLE-PROVER (X) ,** 3 

An important problem is that of maintaining a data base wTth a 
reasonable amount of material, Consider the first example above. The 
statement that all humans are fallible, while unambiguous in a 
declarative sense Is actually ambiguous in Its Imperative sense (i,e, the 
way it is to be used by the theorem prover}* The first way is to simply 
use It whenever we are faced with the need to prove £ FALLIBLE $?X3, 
Another way might be to watch for a statement of the form {HUMAN $7X3 to 
he asserted, and to i nxned i a te1y assert (FALLIBLE S ? JC J as well* There is 
no abstract logical difference, but the impact on the data base Is 
tremendous. The more conclusions wo draw when Information is asserted, 
the easier proofs will be, since they will not have to make.the 
additional steps to deduce these consequences over and over again. 

However since we don*t hove Infinite speed and size. It Is clearly folly 
to think of deducing and asserting everything possible Cor even 
everything interesting} about the data when it Is entered, tf we were 
working with totally abstract, meaningless theorems and axioms (an 
assumption which would not be Incompatible with many theorem-proving 
schemes}, this would be an Insolvable dilemma. But Micro-Planner Is 
designed to work In the real world, where our knowledge is much more 
structured than a set of axioms and rules of Inference, Vie may very 
well, when we assert (LIKES $?X PUETRY) want to deduce and assert (HUMAN 
5?X), since in deducing things about an object. It will very often be 
relevant whether that object is human, and wo shouldn f t need to deduce it 
each time. On the other hand. It would be silly to assert (HAS-AS - PART 
S?X SPLEEHJ, since there is a horde of facts equally important and 
equally limited in u^e. Pert of the knowledge which Micro-Planner should 
have of a subject, then, is yjhat facts are Important, and when to draw 
consequences of an assertion. This is done by having theorems of an 
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antecedent type: 

(THANTE {X ¥) (LIKES $?X J?¥) 

(Tha.5SE.rt (mum ah s?X)>) 

This says that when wo assert that X likes something, we should also 
assert (HUMAN S^X)* Of course, such theorems do not have to he so simple. 
A fully general Mi cro-PTanper program can he activated by an THANTE 
theorem, doing an arbitrary (that i s, the prograrrmer has free choice) 
amount of deduction, assertion, etc. Knowledge of what we are doing in a 
particular problem may Indicate that It is sometimes a good idea to do 
this kind of deduction, and other times not, As with the consequent 
theorems, Micro-Planner has the full capacity when something is asserted, 
to evaluate the currant state of the data and proof, and specifically 
decide which antecedent theorems should be called, 

Micro-Planner therefore allows deductions to use all sorts of 
knowledge about the subject matter which go far beyond the set of axioms 
and basic deductive rules* Micro-Planner itself ts subj o c t-in de pend e n t, 
but Its power is that the deduction processs never needs to operate on 
such a level of Ignorance* The programmer can put in as much heuristic 
knowledge as he wants to about the subject, just as a good teacher would 
help a class to understand a mathematical theory, rather than Just 
telling them the axioms and then giving theorems to prove. 

Another advantage in representing knowledge In an imperative form is 
the use of a theorem prover In dealing with processes involving a 
sequence of events* Consider the case of a robot manipulating blocks on 
a table, Jt might have data of the form, “block! is on block!," "htockZ 
is behind blocki", and M If * is on y and you put it oh Zj than x is on a, 
and is no longer on y unless y is the same as z", Many examples in 
papers on theorem provers are of this form (for example the classic 
"monkey and bananas” problem). The problem is that a declarative theorem 
prover cannot accept a statement like CON B! 52? at face value. It 
clearly is not an axiom of the system, since Its validity will change as 
the process goes on* It must be put Tn a form (OH 01 B2 SC) where SO Is 
a symbol for an initial state of the world* The third statement might be 
expresse-dgsj - - ± 

(FORALL (X Y Z 5)(AND (ON X Y (PUT X Y S)> 

(OR(EQUAL Y Zi 

(NOT(0« X Z (PUT X Y 55))))) 

In this representation, PUT is a function whose value is the state 
which results from putting X on Y when the previous state was S* We run 
into a problem when we try to ask (OH Z U (PUT X ¥ $)) i,e* is block Z 
on block W after we put X on Y? A human knows that Tf we haven't touched 
Z or u we could just ask (0)1 2 M 5) but in general It may take a complex 
deduction to decide whether wc have actually moved them, and even if we 
haven r t, it will take a ixhol e chain of deductions (tracing back through 
the time sequence) to prove they haven T t been moved. In Miero-Planner, 

1 where we specify a process directly, this whole type of problem can be 
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handled in an Intuitively more sadsfactory way by using the primitive 
function TMfRASE, 

Evaluating CTHERASE (On $?X $7Y)} removes the assertion (Old $?X $?Y1 
from the data base. If we think of theorem provers a? working with a set 
of axioms, it sterns strange to have a function whose purpose Is to erase 
axioms* If Instead we think of the data base as the "state of the 
world" 1 and the operation of the prover as man E pulat i ng that state, Tt 
allows us to make great simplifications* Now we ear simply assert (OH B I 
t$i!) without any explicit mention of states, Vic een express the necessary 
theorem as; 

(THCUHSE (X Y V 

(PUT s?x $m 
(THGOAL (UN $?X $?Z)> 

(THERASE (OH $ 7X $7ZJ) 

CTHASSERT (ON $?X $?Y>)) 

This says that whenever we want to satisfy a goal of the form (PUT 
S?X $TY), we should first find out what thing Z the thing X Is sitting 
on, erase the fact that it is sitting on Z, and assert that it i$ sitting 
on V, We could also do a number of other things, such as proving that it 
is indeed possible to put X on Y, or adding a list of specific 
instructions to a movement plan for an arm to actually execute the goal, 
in a more complex case, other Interactions might he Involved* For 
example, if we are keeping assertions of the form (ABOVE $7X $7Y3 we 
would nEed to delete those assertions which became false whan we erased 
(UN i?X $7Z> end add those which became true when we added (OH StX $?Y). 
Antecedent theorems could be called by the assertion CON $7X $?YJ to take 
care pf that part, and a similar group called erasing theorems can be 
called in an exactly analogous way when an assertion Is erased, to derive 
consequences of the erasure. Again we emphasize, which theorems will be 
called can b e.ma de dependent on the way the data base is structured, 
which in turn can reflect knowledge of the subject matter* In this 
example, we would have to decide whether it was worth adding all Of the 
above r^JAilpns tp„the data base, with the resultant need to check them 
whenever something is Fiioved, or instead to omit them and take tTme tor = 
deduce the™ from the OH relation each time they are needed. 

Thus in Micro-Planner, the changing state of the world can be 
mlrrored in the changing state of the date base, avoiding any need to 
make explicit mention of states, with the requisite overhead of 
deductions. This is possible since the information is given In an 
imperative form, specifying theorems as a series of specific steps to be 
executed. 

If we look back to the distinction between assertions and theorems 
made on the first page. It would seem that we have established that the 
base of assertions is the "current state of the world", while the base of 
theorems is our permanent knowledge of how to deduce things from that 
state. This is not exact!y true, and one of the most exciting 
possibilities in Micro-Planner is the capability for the program Itself 
to create and modify the Micro-Planner functions which make up the 
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theorem base* Rather then simply making assertions, a particular Micro 
Planner function might be written to put together a new theorem or make 
changes to an existing theorem, in a vray dependent on the data and 
current knonfledge. It seems likely that meaningful H learning 31 Involves 
this type of behavior rather than simply modifying parameters or adding 
more individual facts {assert ions) to a declarative data base. 


PAGE 11 


III, Tine NT crc-PI ann?r Primitives 

TTils section will basically be a list of the Mi ero-Pl anner 
primitives with a detailed description of each, Meta-LI ngui st S c 
variables will be enclosed fn angle brackets tO>. 

The heart of Micro-Planner Es a structure known as THTREE; It Is 
to the hierarchical central structure of PLANNER what a push-down list is 
to a recursive control structure such as is found in LISP, In LISP the 
push-down list remembers the return addresses of recursive function 
calls; in Micro-Planner ThTree keeps track of the decisions (or 
hypotheses) made so far in the problem-solving process which are 
currently considered relevant to the solution, th case a failure occurs 
PLANNER can back up THTREE* undoing the decisions which caused the 
failure until a promising approach is found. If none Is found the 
program returns a failure* THTREE is a tree structure* each node of 
which contains information about how to proceed in case either success or 
failure propagates to that node* failure is propagated from a node If 
and only if a failure propagates to It and ho further possibilities exist 
at that node* A node of THTREE may he thought of as a goal, wTth 
branches originating at this node associated with tentatively useful 
hypotheses for establishing the goal. 

Closely associated with THTREE is THALIST, the list of variable 
bindings. Certain primitives bind variables by declaration. In their 
initial bound state variables are called unassigned and are assigned to 
"THUMASSIGNED." THALlST shares the tree structure of THTREE* 

because of the in on-recursive implementation of the Micro-Planner 
interpreter the PLANNER value of an expression Is not the same as Its 
LISP value* In most cases this is unimportant because PLANNER 
expressions are usually executed for effect rather than for value* The 
PLANNER value of an expression is however available as the ll&P Value of 
the LISP free variable 7HVALUE immediately after the expression is 
executed* Although this Is not a very pretty convention it Introduces 
some very great simplifications in the implementation, 

1) ,PLNR , ( IN IT) 

One can have a PLANNER l NIT file In the same way one has a tsco 
init file* The file name should be as above, 

2) (TilAMONG <var table name> {express fon>) 

Upon entry the variable named (by an atom) must be bound. If It Is 
unasslgned then It will be assigned to the first member of the list of 
choices to which <expressicn> THVALuates. If the variable already has a 
value (Is assigned), THAMONG falls unless the assigned value is already 
among the choices* Each time a failure backs up to the THAMONG the 
variable will be assigned to the next element of the choice list. If It 
runs out of choices it falls, otherwise it succeeds. 

5) CTHAND <cl> .** <en> > 

TNAHD falls unless each of Its subexpressions succeeds Tn sequence, 
allowing for backup. It is just 11ke THPROG except that there are no 


PAGE 12 


variable declarations or tags allowed. 

4) (THAWTE < thm-name> < 1 i st-of-i/ar 1 ab 1 es> <pattern> <body>) 

THANTE v/orkb in a similar fashion to TUCOflSE to define and 
(optionally) assert antecedent theorems. 

5) (THAPPLY £theorcm> <datum>) calls the specified theorem causing It 
to match its pattern to the specified datum* if ft matches, the theorem 
is executed with Cdutun.) as f ts "ar gunant ." The THVALUE of a THAPPLY is 
the vo]ye of the theorem applied* 

G) (THASSERT <ake1eton> <rod!> *,, <recn>) 

THAS-SEHT adds the assertion (formed by substituting assignments for 
variables (or by THVALing. SE'a as described In the matcher section) In 
the skeleton) to the data-base except if the skeleton is an atom* in 
which case Tt adds the atom as a theorem to the theorem base, 

THASSERT only falls If St tries to assert an already ex fating 
assert ion* If the first recommendation to a THASSERT Is a (THPRQP <e>) 
chf?n the LISP value of <e> is used as the property list of the assertion 
being, asserted. A more complex recommend at i on js THPSEUPO# which has its 
own listing, THASSERT also may recommend antecedent theorems with THTIlF 
or THuSE as In THgCaL, chough the success or failure of those theorems is 
irrelevant to success or failure of the assertion. The PLANNER value of 
a THASSERT is the object asserted, 

7) (THASVAL <variable)) 

THASYAL Ts a predicate which assumes that the indicated variable Es 
bound. It succeeds If and only If the variable Is assigned a value* 

3) (TllQKPT <comment) ) 

TllbkPT has no effect unless traced* If it Is* its comment is 
printed, if the trace's break predicate is true as well* e. g. 

(THTRACE CTHRKPT T 1)], 

then THbK.PT breaks In a similar fashion to THEF5T* (see ***}* However* 
THllKPT is more powerful than THEftT as It also breaks upon failure backing 
up to it* E t Is thus more useful than THeRT for debugging PLANNER 
programs* 

3) CTHCONB <pairl> . <pair n>) 

THCUWD Is the PLANNER analogue of CONLJ Tn LISP, As In MAC-LISP the 
"pairs" needn't be, basically THCtiMO executes the CAR of each pair until 
one succeeds. The THCOND ivt 11 then, succeed 3f all the rest of that 
"pair" succeeds (like a THAKD) else THCQHD will fall, 

1u) (THCONSE <thm-name> < IIst-of-var1ables> <oattcrn> <body>3 

A planner consequent theorem can be defined and asserted by the 
function THCONSE* for example, a consequent theorem named THM1 can be 
defined and asserted as follows: 
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(THCUNSE THMI (X) < -F ALL t GLE $7X) ( Tl-E GOAL (HUMAN $?XJ)> 

This equivalent to: 

£THPUT PROP 

’ THM I 

1 {ThGOnS£ (X) (FALLIBLE S It) (TUGOAL (HUMAN S?X))) 

’THEOREM) 

(TRASS EAT THMI) 

The theorem name Is optional. If Tt is not given, a unique name 
Ts Generated by the system* Note that this feature should not be used if 
one later wants to erase the theorem* 

Asserting the theorem can he avoided by placing THNQAS5ERT 
immediately after the theorem nemo For example, 

(THCAUSE THMI THNOASSERT (X) (FALLIBLE $?X) (THGOAL (HUMAN $7X))) 

will define THMI, but not assert It* 

11) (THOATA) causes Micro-Planner to go Into a read loop for gobbling 
assertions and theorems at high speed* Loop Ends when NIL is read. 

12) (THOQ <el> <en>> 

THDO executes each of Its subexpressions in turn end cares not whether 
they succeed or fail; It then succeeds, Mora precisely. It only ignores 
simple failures occurring In Its scope. (For the distinction between 
types of failures, see THFAIL.) 3f a failure becks up to It, all that Tt 
did Is undone- 

13) ETKOUMP <ftlenamel> ^fMename2> <device> <user>) 

Dumps the state of the Micro-Planner world (THSTATE) into the 
sped fled f i le, 

CTHDUMP SAVE STATE) CTHFLUSH) ((TREAD) (IOC Q> 

Is a no op, j 


ill) THEOREMS 

Theorems are the 1-1 Tcro^Pl anner analogue of functions in LISP, There 
are three kinds: 

consequent theorem - for establishing goals 
antecedent theorems - for expanding on assertions 
erasing theorems - for expanding on erasures. 

See ThCUNSE, THERAS1NG, and TRAMTE for a convenient method of defining 
theorems. When o theorem is called the declared variables ere hound and 
the Pattern fs matched to the calling pattern in THGOAL or datum in 
THASSERT, THER.ASE, and 7HAPPLV* This has the effect of assigning some of 
the theorem's variables* The theorem is then executed as a THPltOG If the 
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match succeeds* 

15) (T H t R ASi E <skeleton> <recl> ,** <recn>} is identical to THASSERT 
except for effect. If a failure backs up to an assertion or an erasure 
it is undone* 

16) UNERASING <th(n-name> < 1 f s t-of-var 1 nb 1 es > <pattern> <body>) 

THERASUIG works In a similar fashion to THCGNSE to define and 
(optionally) assert antecedent theorems* 

17) (THEkT <comment>) 

THERT causes Micro-Planner to break and print its comment. The 
state of the world can be explored by EtfALing any s-expression* Planner 
expressions can be thvaled! by explicitly calling thval* for example, 

{THVAL (THA&SERT (HUMAN TUftJ N(l} ) NIL) 
would add this assertion to the data base If it had not been previously 
asserted* Note that explicit thvals should be done carefully as they can 
change the state of the wo rid* 

When ready to leave the breakpoint, ($P <s-e.xp>) causes THERT to 
return the li sp value of the s-exp, (where = ALT-MODE)* Note that 

tills w|l 3 cause failure Ef the expression evals to Nil. SP Is equivalent 
to ( 5 P T) and is the standard way to proceed from the breakpoint. 

ID) (THFAlL <argl> <arg£> <ar E 5>) 

THFAlL causes failure to propagate, the extent of which Is determined 
by the argument st 

(THFAiL ThTaG tcae> T) causes a failure to propagate to the tag 
i rid 1 cat«?d. 

(THFAiL THTAG <tag>) causes a failure to propagate past the tag 
1ndicated* 

(THFALL TRPROG ), (THFAlL THEOREM) cause the THPRQG or the THEOREM 
currently In to fall, 

(THFAlL THMESSAGE <message>) causes a failure to propagate until It 
reaches a THMEGSAGE statement whose pattern matches the message. 

(THFAIL) causes a failure similar to the one caused by a TH0QAL, say, 
failing* The program will back up to the last decision point and try to 
patch things up. 

Any failure caused by THFAIL, except when it Is given no 
arfiuments*. Is a compound failure* All other failures are simple 
fa \ 1ures* 

19) {THFAj L7 Cpredicate> <aCtion>) 

If failure backs up to this planner primitive and the LiSP 
predicate evals to true, it returns the aval of the action, THFAiL? is 
useful as a computational 1y less costly form of THMESSAGE since It does 
not Involve pattern matching against a message failure or THPRQGing. 

20 ) (THFlHALtIE <ar e l> <ar g 2>) 

THFINaLIIE is a primitive which allows pruning of THTREE+ 

Essentially, If one THE I MALIZES, say to a tag, then all the things done 


PAGE 15 


since that tag was passed are rot undoable 11* case of failure. Example: 
Tt> put all of the green blacks. in the box and return a list of those 
actually moved e 

ETKPRUG (X (Y MIL)) 

(THOR (THANE) (THGOAL ( I£ 5?X SLOCK)> 

(THGOAL t CD LOR F?X GREEN))) 

(THRETURN $?Y)3 

FQO 

(TtlCOND UTlrEGOAL [CONTAIN E»QX $7X3) (THFAEL)) 

C (THDUAL (PUTIN $?X COX) CTHUSE TC-PUTIH)) 

(THSETQ $ ?Y (C0N5 5?X S?Y>) 

(THFLNAL1ZE THTAG FOU) 

(THFAIU) 

((PRINT $?X) (THERT CAN NOT PUT IT EN)m 

Besides- finalizing to a tag, one can finalize a theorem or a THPROC by 
saying (THFINALIZE THEOREM) or (THFINALIZE THPRQG). There are lots of 
other things that can be done with THFINALIZE, Ejut 1 wilt not guarantee 
t hern* 

Zl) (ThFIND <mode> (skeleton) {variable declarations) {ei> + ♦. <en)> 

THFIND Is a primitive whose THVALua11 on yields a list of objects, each 
of which is the result of substituting for variables in the skeleton 
values of those variables which cause the program starting at the 
variable declarations [like a THPROG) to succeed. Thus, for example. If 
the data-base con tallied the assertions (If ACKER N) (HACKER H) (HACKER RG) 
(AT MAC RG> and we TllVALed the expression (THFIND ALL (AT SC $7X3 (X) 
(THGUAL (HACKER $7X3) (THNDI (THGUAL <AT MAC $?X))3> we would get ((AT SC 
N) (AT SC H)) as its TUVALUE (PLANNER value). 

The mode Field of a THFIND may be any of the following. 

ALL Says to find all items matching the description {number) 

Find at least that number, there may be more In the data base, but \ am 
not interested In them, 

(EXACTLY <number>) 1 want this number, if there are any more, 

fail* 

(AT- LEAST {number)? IF there are fewer, fail, there may be more* 
(AT^MQST <number)3 There may be less, but If there are more* 

fall. 

(AS-MANY-AS {number>) 1 don't care how many there are (providing 

there is at least I), but l only want to see {number) of them. 

(AT-LEAST <number 1> AT-MOST <number2>) Takes the logical ’’and” 
of the two conditions 

CAT-LEAST <numberl> AS-MANY-AS Cnumber2>3 Sane here. 

Those familiar with the old version might note that this is a different 
syntax. However, any code wrftefl in the old form will still work on the 
new system, 
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22 3 CTHFLUbH <tn<Jtcatorl> < Indicator^ **.3 

THFLbSH Is a general 1y useful function for getting a H&P Into some 
desired state* it rounprop's all; properties with the indicators specified 
from all atoms on the OfcJLEET* 

(THFLUSHJ =■ (THFLUSH THASSERTIGN THANTE THCQNSE TH£RA$ING) 

23J CTUGU <tag>3 11 CTHSUCCEE& THTAG <tag>) 

24) (THGGAL <patt e rn> <recl> , .* <recn>> 

This is a real d i T I y to describe. it is probably the most complex 
single primitive in Micro-Planner* Assume the simplest case in which 
there are no recommendations <recJ> given, THGOAL seertheS the data base 
for a datum (E*e. an assertion) which matches the pattern. If it finds 
one, it succeeds after assigning ell of the urias signed variables In the 
pattern so as to make it match the datum; ft then returns the assertion 
found as its PLANNER value, if it does not find a matching datum it 
falls* If after a success, a failure propagates back to Et, it unasslgns 
the variables it assigned last time and continues Its search for a 
matching datum from where it left off* 

If recommendations are given they are tried in order* if the very 
first recommendation is a (THNQDB) or a ITHDEF -) the initial data base 
search Is inhibited, otherwise it is assumed in default* The possible 
recommendations are: 

13 CTHhuDE) - inhibit data base search* if it Is not first, it Is 
useless and causes an error* 

2) {THUbF <filter>) * Try only those elements of the data base 
satisfying the filter* 

5) tTHTbF <filter>y - Try only those theorems satisfying the filter* 

4) (THUS £ <thl> < th2> ,*.tthn>) * Try the theorems giver explicitly 
by their atom headers In the order mentioned* 

A filter is any unary LISP predicate; the always true predicate Is 
suppl 1 edLJ** the system as THTftUE* All assertions have property lists 
which ore their CDRs* Thus if a filter refers to the Ct)R of Its argument 
It is referring to the property list. CAR of an assertion, however. Is 
not .at^.in LISP-atoms; rather it is the datum which Is matched against 
the pattern. 

if ^„theorer.i Is recommended, say with THUSE, it had better be an atom 
with a TUEUREM property pointing to a consequent theorem (E.e. it must be 
of the form (THCOMSE <varlablc deelaratEons> Cconsequent <el> *** 

<en>JJ, Note chat the theorem need not be asserted for THuSE to apply* 

If the goal pattern matches the consequent, then the theorem will be 
tried* The matcher will first bind the theorem variables appearing in 
the declaration (see THPRyG) and then match the patterns, causing some of 
the theorem variables to be assigned and leaving others unasslgned* If 
the match wins, the theorem will proceed to execute as a THPRQG, If the 
theorem succeeds the PLANNER value of the THGOAt wilt be the pattern of 
the goal wTth the assignments substituted for the assigned variables, 
unless the theorem does a THRETURH, in which case the PLANNER value of 
the THGOAL will be the goodie returned* If a goal variable which Is 
unassigned Is matched against a theorem variable and the theorem 
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eventually gTves that variable a value then the goa1 variable also Rets 
the value, A more detailed description of the matcher wi 11 be given 
later. 

S) $K (number) Is a macro for (THANUM <number>), it says that 
the goal should only be tried to be satisfied <nunber> times. Hence the 
<number> +■ 1 r th time the goal is failed back to, no more attempts will 
be made anti the failure will continue backwards. In particular, $N1 can 
be u&edwhen there Is only one possible answer, and if failure backs up 
to the jHC aUAL, no good can come by trying different assertions or 
theorems* 5N (number), if it is to appear at all, must appear In the 
f1rsc posit Eon* 

b) (THNUM (mimfeer>) Is very similar to $N <number?, but may 
appear at any point in the recommendation list* Sts effect is to set or 
reset the number of times the goal will be tried* For example. If It 
should appear first in the list, St is, in effect saving, the goal may 
use any number of assertions it can find, but only <number? number of 
theorems. In general, by interspersing THMbM^s between recommendations, 
you are saying how many of the theorems which match the next filter can 
be tried, 

2i> (THMATCH <e*pl> <exp2>) 

TllMATCIi matches the lisp value of its first argument against the 
lisp value of its second argument. For example, 

(THMATCH *(HUMAN TURING) *(5_X $_Y)) 
would succeed and result in 5_X being assigned to f HUMAN and $_Y being 
assigned to ‘TUNING. If £_X were instead S?X, then THMATCH would succeed 
with S?X assigned to ’HUMAN, providing were previously either 
THUNASiI CM EH or assigned to HUMAN. 

Failing back through a THMATCH is similar to failing back through 
a iHGUAt, Any variable assignments made by the match are undone and the 
variables* are returned to their previous values* 

•Note that THMATCH will not work properly If its inputs are 
themselves planner functions since PLANNER Ts not goretursive with LISP. 
For example, TF HUMAN TURING Is already asserted, the planner value of 

(THGUAL (HUMAN TURING)) 

is ((HUMAN TURING))' but its lisp value Is NIL, Hence, 

(THMATCH CTHGUAL (H T)) '(HUMAN TURING)) 
will not work properly. An explicit call to THVAL, however, will work: 

(THMATCH 

(THVAL MTHGOAL (HUMAN TURING)} NIL) 

*((HUMAN TURING))) 

2b) (THMEbSAGE <vartable declarations? (pattern) <el> * * * <en>) 
examines failures propagating to it, if one lias a message which matches 
the pattern (after the declarations are made) control then passes to the 
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body, <el>, which executes as a THPROG, 

11) (THNOKASH <ATUM> < ( NO lCATE)R1> < I ND iCATOJU>. * * ) 

The patterns of mlcro-planner theorems and assertions are stored 
En buckets hung on the atoms appearing in the patterns. Atoms which are 
very camion are not very useful for this purpose. For example, suppose 
we wished to assert the following five patterns! 

Air (JOHN tS A BUT) 

A2: (JACK IS A BQY) 

A3: (MARY l& A GI k L ) 

AA; (JILL IS A GIRL) 

Ab: (WJOF IS A DUG) 

'"IS** and n A fl art not helpful in distinguishing any of these assertions 
from the others. It would ssve space as well as computation to tell 
planner this, Executing 

CTHFJOHASH I $> THASSEHT I OH) 

CTHNQtiASH A THA$5EAT10H> 

accomplishes this purpose* 

one can be selective In telling planner where a particular atom 
is not useful for pattern matching purposes. This is done by specifying 
which of the four following types of patterns the atom is not useful in 
I ndex i ng: 

the patterns of 

consequent theorems 
antecedent theorems 
erasing tb<=orems 
assert!ons. 

The syntax for this is to use any combination of the four following 
indicators; j 

THCUNSE, THANTE, TM ERAS i NG, THASSERT1QH 

For example, (THNUHA5I-1 IS THASSERTI ON) informs planner not to use 
the atom "15" as a handle on the pattern matching of assertions in which 
Tt Is found» It is still used for pattern matching purposes when it 
occurs in the patterns of theorems, 

{TH1HJHASK <ato«i> TKCQUSE THANT E. TH ERA& | MG THASSERT1ON) 

can he abbreviated as (THNQHASH <atom>) and Is used when the atom that it 
Is completely useless for pattern matching purposes, 

ZB) ETHM1T <e>) is defined as ETHOOND £<e> (THFAt L>) <( THSUCCEED) >> * 
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2!)) iTHim <el> *♦♦ <en>) 

THUR succeeds if at least one of its suboxprpssions succeeds, 
basically, it CORs down the list looking for a frjnner and if it finds one 
Jt succeeds, returning its value as the PLANNER value. If a failure 
propagates back to it, however, it continues CURing from the point it 
left uff until it finds another winner or it loses. 

iuj ([THPRUG <deelarat Eon> <el> <on>3 

THPKtlti is the PLANNER equivalent of the LISP function PROG* 1 t& job 
Is to bind the variables mentioned in the declaration and then to execute 
the expression^ <el> in sequence, unless change!? in sequence ere 
specified by tags and THGCl statements. As Jr LISP, atoms occurring In 
ThPPuG bodies are interpreted as tags* If (THGU <tsg>) is executed at 
any point in the interpretation of a THPRUG, execution then proceeds from 
the expression Immediately following the tag {tug>, THGU statements may 
refer to tags which are not In the current THFROG but which are in one 
which called it* The execution of TKPROG terminates either with a 
failure, successful execution of its last expression, <en>, or by a 
forced success with a THRETURN statement* (.THH.ETURN <exp>) Is equivalent 
to tTdiiUCCE£Li THPRUG <exp>) and will cause the TKPROG to succeed and 
return as Its PLANNER value the LISP value of the indicated expression* 

If a THPliUG returns by succeeding past the last statement, or by 
executing a (THSUCCEED TUP HOG'), it returns as Its PLANNER value the atom 
JHNUVAI., If it fails. It returns NIL. 

The <dec I ara 11 on> is a list of variable declaratlons, A variable 
declaration is either an atom which is the name of a variable to be used 
inside the THPRuG, or a list of two elements* the first of which is the 
variable name and the second of which Is a LISP expression whose LISP 
value Is to be used as the Initial value of the variable* If a varlahle 
is bound without giving it an Initial value it Te given the default value 
"THUNAS3IGNEU. M A more complex form of variable declaration may be found 
under THRESTkICT* 

Evaluation of a THPRUG begins at the first expression of the indicated 
sequence. tf It succeeds, a new branch is generated on THTREE and the 
next expression in sequence is evaluated, etc* If any statement fails 
then the branches are unwound until either a new success ends the failure 
propagation or there are no more branches and the TTIPROG fails* Tiius 
THPROG behaves as a THANP with variable binding capability; It fails 
unless each of its subexpressions succeeds, allowing for backup, until It 
returns* As usual, any LISP expression may appear in a THpftOG; tf It 
evaluates to NIL, a failure is generated, otherwise a success is assumed* 
Other relevant functions are THSUCCEED, THFA1L, THFINALIZE, THGQ, and 
THRETURN, 

31) ThPseUDU 

"(THPSEUDU)" as the first reeonunendetlon to an assertion enables 
one to activate a patterns antecedent theorems, without actually 
asserting the pattern. For example, to activate the antecedent theorems 
which match the pattern "(HUMAN TURING) 1 ’ without actually asserting It Is 
‘iccorapl I shed by: 
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(THASSERT (HUMAN TURING) (TKPSLUOU) ST) 

In many esses this can be done without using THPSEUDU by first asserting 
the pattern with the appropriate theorem recommendations and then erasing 
the pattern* for instance, -one could accomplish the same effect as using 
TKPSEUDO in the above example by the following! 

(THAS5ERT (HUMAN TURING) $T) 

ETHERASE (HUMAN TURING)> 

However, THPiEUDU becomes necessary when some of the variables in the 
pattern are unassigned, thus preventing St from being, asserted* 

THPSEUDU performs in the same fashion for activating a pattern's 
erasing theorems wi thout actually erasing the pattern, 

52) TMPUTPRUH, THkEHPtiUP, THRPLACA, THRPLACD are Just like their LISP 
counterparts except that if a failure backs up to them they undo their 
effect* 

33) (THRESTRICT <variable> Clisp function l> CHsp function 2> ...) 

THRESTRICT allows one to restrict a PLANNER variable so that it 
will only match objects which satisfy the LISP predicates named En the 
^.THRE-STHl OT statement. For example, consider 

(THGLJAL (AUE MOTHER (?R $7X mJMBERP))) 

jK is an abbreviation, which expands to THRESTRICT, in this example, $7X 
wi]] only match numbers. Naturally, the function named must be a 
function of one variable* Of course, we eould have a lambda expression 
instead of the function name, as in 

(THQUAL (5 7Y IS A ($K ? t LAMBDA £X) (hEMQ X 'CDOG CAT HACKER)))))) 

Also note that rather than a variable, we have a question mark Inside the 
SR expression. The net result Is that the "7*' will only match DOG, CAT, 
or HACKER. However, it doesn't set asSi fined a value as ??X would in our 
first example. We can also have 

(SR S_Z MYPRED) 

which has the expected result. 

in all our examples so far the restriction has been 
declared In our goal statement. We can also create the restriction when 
we declare variables at the begintng of a theorem, or a THPRQG, as in 

(THHRUG (A (SR 8 HUNANPK) 

(THGUAL U?A SON OF *?B) $T>) 


PAGE 21 


In this THPllUG's variable bindings we use ii rather than 5?b or $_b, I The 
prefix would have no meaning, tn the context of a variable list.) It Is 
also possible to use THRESTRiCT as a free standing function, so this last 
THPRGG could have been written 

(THPkOG (A B C> 

(THRESTKICT is humanpi 
(THG 0AL U?A SUI1 OF $H)$T) 
a .*) 

Once we restrict a var i a b 1 e it stays restricted until It Is 
unbound. As we shall see, this has some Interesting consequences. 

At the monent THGOAL Is the only function which takes note of 
restrictions. So one can THSETQ. a restricted variable to a value wb [ ch 
would not satisfy its restrictions. The saine goes for THAM0NG. 

It Is possible to have 

CTHPUUG (A Uk U GRANGEPJ C) 

CTHGOAL (Owh $?A £$R *?ES CIRCULAR?)) I 

... > 

which will act the s ane as 

£THPRGG (A t$fi b URANGEP CIRCULARS) C) 

£THGOAL CGWM $?A $?BI) 

. * I H 

Another interesting case is 

fTHGUAl COLWN JACK UR S?EJ CIRCULARP)) CTHU5E WHOHAS)) 

where fjHObAb looks like 

(THC0NSE fF G) 

iom $?G> 

(TIIGGAL (HOLQ $?F ($R $?G SMALLP) )$T)) 

Vi hen we dp this last THtiUAL, the item which matches §?G must satisfy both 
GIRCU LAMP and SJ^lALLP. tt is possible that this goal wilt call another 
theorem which satisfies the goal without assigning $?G a value. If this 
is. the case then uur first goal (OVJn jack.. ,3 will be satisfied without E 
getting a value, but, the restriction SMALLP will stay with $7E, just as 
an assigned value would have. Hence It is possible for a theorem not to 
assign a value to a variable, but merely restrict its range of 
poss ibilme&* 

3(0 {THRETUrtN. <e>) ■ (THS-UCCEED THPROG <e» 

3S) (THbETqi <varl> <el> cvarn> <en>) 

Sets variable 1 to the value of el and ... and sets variable n to 
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the value of en, If failure backs up to it, it is undone* if the 
variable is a planner variable then the corresponding expression Is 
TtlVALed; otherwise the expression is EVALad, THSETQ ignores variable 
restrictions* Sue warning about THVAL* 

36) (TtlbTATE <3ndlcatorl> < i ndicator2> ... ) 

Prints that pert of the state of the Micro-Planner world 
specified by the indicators, 

tTHSTAU THASSERTIQN) = assertions in data base 
(THSTATt THCCJJ4SE) ■ consequent theorems currently asserted 
(THSTATE THAMTE) = antecedent theorems currently asserted 
(THbTATE THIkASJNG) * erasing theorems currently asserted 

57) [TH^UCCEED <argl> <arg2>) 

THSUCCEEU caused success to propagate, the extent of which Is 
determined, by (he arguments: 

(THSUCCEED TUTAG Ctas>) - tTHGO <tag>) - see THPftQG, 

(TH5UCCEED THPROG <e>) = (THRETURN te>) - see THPROG. 

CTH5UCCEE0 <place>) = tTHSUCCEED <place> I) 

CTHbOCCEEO THEOREM <e>) causes theorem to succeed with value of <e>, 
CTHGUCCEED THEOREM) causes the theorem to succeed with value THKGVAL* 
CTHSoCdEEOj causes a simple success to propagate. 

3 &} (THUN IQUE <cxpl> <eXp2> ..*) 

THUHluUE is a state filter* It causes failure If the list 
consisting of the values of its arguments has been computed by any 
previously executed THUN1UUE.' For example, a consequent theorem named 
7HM1 can be prevented from getting into a loop by calling itself 
recursively (via any intermediate theorems) with arguments Identical to 
those supplied to thu theorem at the higher level activation by making 
(THUHIQUE 'TUMI $7X1 $7X2 ) 

the f I rst statejnent of the theorem's body, where $?Xl, $7X2, .*< are the 
planner variables occurring in the theorem's pattern. 

39) (THlL^vatriable name>> (THNV ^variable name>) 

These LISP functions get the PLANNER value of the variable whose name 
Is given, T_he atoms THV and THNV also serve as markers of the special 
variable flags to the matcher* [THV F(JQ> is $?F0G and <THNV FOG) Is 
$_Fuo by using the nacro“chareeter feature of LISP 1,6, 

49) (THVAL <expression) CalisO) 

THVaL is the Micro-Planner evaluator Just as EVAL Is the L1S-P 
evaluator* As in LtsP, the first argument is evaluated (THYALuated) with 
free variables in it given the values associated with them on the given 
allst, Micro-Planner's alist, called THALlST, Is a list of pairs (CAR- 
CADK not CAft-COR) of variable names and values. if you went to stop a 
Micro-Planner evaluation at the next Interruptable place hit ctrl-A. 
Planner will then type out tArTHYAL and go into a THERT listen loop (see 
„TSIERT) * The next expression to be executed is in the variable THE. To 
proceed, type $p<spaee>. Warning; an explicit call to THVAL may not be 
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MTcro-P1anner Is elementary and contains a minimum of 

and 


lea but is {hopefully) sufficiently powerful for most 
o-Plannor f s matcher only matches lists one level deep 
stjnet kinds of variable occurrences* The matcher's 
sufitiiar I z ed In the G^by-G chart on the next page, which 
wo pattern elements Interact* One nice hopk in the 
a pattern element (or the entire pattern) may be of the 
ion> or (THEV <expression>) tthose macre^charaeters are at 
ich means that the element (or pattern) Es to be replaced 
of THVALuatfng the expression with an appropriate 
xample* to stack up all red objects; 
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CTHGCJAiL (JSTACKUP $E(THF l HD ALL $?K (X) (THGGAL CfCQLQR 5?X RED) ) 


See TNHEGTRICT for more powerful matching methods 
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V (X)* V (Y) 
Ye X 

V(Y)^V(X) 

V (X)*V (Y) 
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Action Taken — Blank if no action is taken 
Condition far Success -— Blank ii always succeeds 

V(X} means value of X, VtY} means value of Y 
V{Y)tV(x) means y assigned tp value of X 
Y-$-X means Y assigned to value of X such that i£ Y is 
clabbered, so is X 








































I Vi A Compendium of Micro-Plann^r Error* Connie nt 5 

The Miero-Planner error comments arc meant to be self-explanatory. If 
you come across one which Is not, [t Is probably meant for me/ not you, 
and it would help in removing residual bugs for you to save the situation, 
and show it to me* All Micro-Planner error comments are typed out by a 
break function called THERT which leaves you in a LISP listen loop at a 
point as close as possible to the occurrence of the error, so that the 
state of the system may he interrogated* Usually the error Is fatal, 
but ff you wish to proceed, type $P<space> (See THERT1* Usually something 
is typed out before the error commentj that is the object the comment is 
complaining about, Micro-Planner error comments almost always end with - 
<funny word>; the <funny word> is the name of the system function which 
got mad. In many cases, Micro * Planner will catch the error before it 
has done anything too drastic* In such cases the user will be able to 
patch things up on the fly, and continue as If nothing happened* Whether 
or not tli is can be done depends on the kind of error* 

The authorized list follows: 

LliPEkRUR. - THVAL 

LlbP became unhappy when trying to evaluate the expression typed out* 
Lf proceeded* the value of THEkT will be assumed to be the value of the 
expression which caused the error* 

. tiAU SUCCEED - THVAL, or EiAD FAIL - THVAL 

You were screwed by a Planner bug* Please save situation and contact 

me* 

UNCLEAR kECOMMENDATION - THTRY 

The expression typed out before the error comment was a recommendation 
to TMtiUAL which was not either a THTtiF, THDbF, THhUM, or a THUSE, or was 
a THANUM or THNUDb which did not come first In the list* If proceeded, 
the value of THEKT will be assumed to be the correct recommendation* 
Atomic recommendations are ignored. Since proceeding with $P is 
equivalent to proceeding with the value T , 5P Tn effect says to ignore 
the recorancndation entirely 

bAD THEOREM - THTRY1 

The expression printed wes passed to TllGQAL as a theorem* It either 
did not have a THEOREM property or was not a consequent theorem* If 
proceeded with 9 value, the value will be assumed to be the correct 
theorem name* If $P is used, this theorem will be ignored and the next 
i tern on the recomsiendat 3 on list will be tried. 

bAD CALL - THFIMALIZE 

You called THFIMALIZE without giving a place to finalize to. If 
proceeded, the value of the THERT is taken as a specification of the 
place, if $P 3s used, the finalize Ts Ignored. 

OVERPUP - THFIMALIZE 

THFIMALIZE overpopped THTREE trying to find the lousy place to stop. 
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This b a fatal error, Wo recovery Is possible. 

JVEkPOP - TUSUCCEED 

THtiUCCEEU overtopped TI-ITht££ trying to find the place to stop 
succeed! he. Remember that THGU and THRETURM use THSUCCEEP. Fatal 
error, 

NUT FUUND " THfAIL 

T H F AI L could not find the place to stop failing. If proceeded the 
value of THERT is taken as a specification of the place, If St is T or 
NIL then It is just returned as the Value of TBFAJL, 

impure assertion or erasure - thasst 

The datum you tried to assert or erase had a variable which was 
unassigned. The offending assertion is In the variable THX, You may 
edit it to be pure and then proceed the program* 

HAD THEOREM - THTAE 

You tried to^THUSE an antecedent or erasing theorem which was of the 
wrong type or did not have a theorem property. If you proceed the value 
of THEKi is assumed to be the correct theorem name. If you had just 
forgotten to define the theorem* feel free to define Tt before you. 
proceed, and return the sarhE name* 

UNCLEAR RECOMMENDATION * THTAE 

You gave a THASSERT or THERASE recommendation vihich was not a THTflE or 
a TliUSE, As in THTRY, the value of THERT Ts assumed to be the corrected 
recommendation* Atomic ones are again ignored* 

ODD NUMBER UF GUUDIES - THSETQ, or ODD HUMBER OF GOOD IES - THVSETQ 
THStTd or THVSETLl does not know what to do with the last goodie. 
Proceeding will cause the odd goodie to be ignored, (Naturally the error 
wilt be Ignored also,! 

THUlttiUUNU - TNV1 

You tried to access the value of the unbound variable printed, if 
proceeded, the value of THERT will be assumed to be the value cell of the 
variable which was not bound* 

THUNABS IGNED - THV1 

You tried to use the value of the unassigned variable printed. The 
value of THERT Is taken as the value of the variable in the current 
expression* Note that if you want the variable to have this value later* 
you had better THYGETCl it, 

THUNttUUND - THGAL 

You tried to access the unbound variable printed. Proceed as in 
THUNBOUHD - THV1, 
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V. Hints and Kinks 

1] All atoms whose pnames begin %</ j t h TH are- property of Ml cro-P3 anner and 
should not be used In programs designed to interact with ft. 

2) When Micro-Pianner is loaded Cby :PLHR Tn PDT) It Is listening In a 
KEAU-THVaL-PRIHT loop at the top level. Typing §P<spate> t-#T 1 T cause this 
loop to be exited to a LlbR READ-EVAL-PR]NT loop, Any error condition 
which propagates to the top level (eg. entrl-G) wi 1 3 restart the FiEAO — 
TtlVAL-PRliiT listen loop. 

3 }■ The system version of Micro-Planner has a LAP in It* it is desirable 
to KEMLAP at the earliest possible time as the LAP takes up lots of 
space. 

k} The £XPR version of Mtcro^Planner is in GSKtPLNR; PLNR > and the LAP 
vera1 on is stored In D$K;PLNR;PLKR LAP, 

5) Because most Micro-Ptanner primitives operate by modifying THTREE and 
then returning, it Is fairly unM lumlnatlng to try to trace therm with a 
LliP tracer (which Is good for the L3SP recursive control structure), 
for that reason r have taken pains to provide a tracer which Is more 
relevant to the planner control structure. It 3s available as EXPR cod? 
in DS1L: PLNR ;THT RAC >, With It one can conditionally trace and break on 
theorems,, assertions, erasures, and goals. To use the tracer one must 
First read it in and then incant (THTRACE <objl> . , . <objn>> / where 
each object Is an item to be traced or broken at* The possible entries 
are ei tiieri 

<atonl> abb revise Eon for (<atom> t nlll 

£<at£jm> < trace condi tion>) ahbrevi at Eon for {£atom> < trace cond1tion> 
nil) or 

Custom) < trace condition) < break condition)) 

The CAR of the I term may either be the name of a theorem or one of the 
following atoms which have special meanings: 

THEOREM all theorems 
THGUAL all goals 
THASSEftT all assertions 
TriLKAiiE all erasures 
TUBKPT all breakpoints 

The conditions ate TUVA Led with the THALIST which Is current at the time 
of call and thus may be arbitrary PLANNER programs which test the state 
of variables and the data base. Tracing of selected items, or of all 
items may be terminated using THU NTRACE* 

G) A Micro-Planner program may at any point call a LISP program, but a 
LISP program may riot call a Micro-Plan her primitive because the PLANNER 
control structure Is not really recursive* If a LISP routine wishes to 
call a PLANNER program it must explicitly TfrIVAL it with an appropriate 
THALIGT* Esc* especially careful not to screw around wT th the LiSF values 
of Micro-Planner primitives unless you understand what you are doing. 
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The possibilities for iossags sre infinite 



